source('base.R')

run <- function(log_filename) {
    log <- read(log_filename)

    data <- log[,c('user_id', 'action')]
    eff_data <- filter(data, 3)
    sat <- satisfaction(data)

    hist(sat, breaks=200)
}

run('data/daily_log_2011-04-13')
